home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / compguid / userintf / scrllbar.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  796 b   |  33 lines  |  [TEXT/ttxt]
  1. -- <<<
  2. global sq := new Rect x2:20 y2:20
  3. global ov := new Oval x2:20 y2:20
  4. global myThumb := new TextStencil \
  5.     font:(new platformFont name:"Arial" macintoshName:"Helvetica") \
  6.     string:"0"
  7. global myMatrix := new TwoDMatrix ty:15
  8. transform myThumb.bbox myMatrix @mutate
  9. global grayBrush := new Brush color:(new RGBColor red:128 \
  10.     green:128 blue:128)
  11.  
  12. object sb (ScrollBar) orientation:@horizontal
  13.     incrementStencil:sq, decrementStencil:sq, thumbStencil:myThumb
  14.     settings
  15.     width:200
  16.     stroke:blackBrush
  17.     fill:grayBrush
  18.     disableBrush:grayBrush
  19.     pressIncrementStencil:ov
  20.     pressDecrementStencil:ov
  21.     stepAmount:2
  22.     pageAmount:10
  23.     valueAction:(a b c -> b.thumbStencil.string := (c as String))
  24. end
  25.  
  26. object w (Window) name:"Scroll Bar Example"
  27.     settings
  28.     width:200, height:40
  29. end
  30.  
  31. append w sb
  32. show w
  33. -- >>>